10 POKE36879,26:PRINT""CHR$(142)CHR$(8):R$=CHR$(13)
12 PRINT"[147]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"R$"  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
14 PRINT"       NUMEROLOGY"
16 PRINT" I WILL ANALYZE A NAME    OR DATE FOR ITS     MYSTICAL VIBRATIONS."
18 PRINT"   ACCORDING TO THE    ANCIENTS, VIBRATIONS CREATE CHARACTERISTICS":GOSUB70
20 PRINT"  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"R$"  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]":GOSUB66
22 V=0:Z=0:N$="":A$="":PRINT"[147]ANALYZE A NAME (N) ,  OR A DATE (D)?"
24 GOSUB66
26 IFQ$<>"N"ANDQ$<>"D"THEN22
28 IFQ$="N"THEN44
30 PRINT"[147]DATE TO BE ANALYZED   -- NUMBERS ONLY"
32 PRINT"(PROPER FORM WOULD BE 12 15 1984)":INPUT N:N$=STR$(N):FORI=2TOLEN(N$)
34 A$=MID$(N$,I,1):IFASC(A$)=32OR(VAL(A$)>0ANDVAL(A$)<10)THEN38
36 GOSUB64:GOTO32
38 IFASC(A$)=32THENNEXT
40 Z=Z+(VAL(A$)):NEXT:Z$=STR$(Z)
42 GOTO56
44 PRINT"[147]NAME TO BE ANALYZED   -- LETTERS ONLY"
46 PRINT"(PROPER FORM IS NAME  COMMONLY USED -FULL   NAME OR NICKNAME)":INPUTN$
48 FORI=1TOLEN(N$):A$=MID$(N$,I,1):IFASC(A$)=32OR(ASC(A$)>64ANDASC(A$)<91)THEN52
50 GOSUB64:GOTO46
52 IFASC(A$)=32THENNEXT
54 Z=Z+(ASC(A$)-64):NEXT:Z$=STR$(Z)
56 V=0:IFLEN(Z$)<=2THEN72
58 FORI=1TOLEN(Z$):V=VAL(MID$(Z$,I,1))+V:NEXT
60 IFV<10THENZ$=STR$(V):GOTO72
62 Z$=STR$(V):GOTO56
64 PRINT"INVALID-TRY AGAIN":V=0:Z=0:RETURN
66 GETQ$:IFQ$=""THEN66
68 RETURN
70 PRINTR$" HIT ANY KEY TO CONT.":RETURN
72 N=LEN(N$):N=11-(N/2):PRINT"[147]"TAB(N)N$R$"    VIBRATES TO "Z$R$R$
74 Z=VAL(Z$):FORI=0TO(Z-1)*5:READB$:NEXT:FORI=1TO5:READB$:PRINTB$;:NEXT
76 GOSUB70
78 GOSUB66
80 RESTORE:GOTO22
82 DATA,"RULED BY THE SUN.     DRIVING LIFE FORCE.   LEADER, AMBITIOUS,    IMPATIENT"
84 DATA",AN EXPLORER,EXTROVERT,AUTOMATIC TOASSUME COMMAND, "
86 DATA"VERY  STRONG FEELING,DESERVEPRAISE WHICH CAN SPUR TO"
88 DATA" GREATER THINGS.   "
90 DATA" COMPATIBLE WITH OTHER FIRES - 1,3, OR 9"
92 DATA"RULED BY THE MOON.    SENSITIVE, DOMESTIC,  EMOTIONAL."
94 DATA"EASILY MOVEDTO TEARS. FERTILE     IMAGINATION.  FOND OF"
96 DATA" HOME. PATRIOTIC.PREFERTO LIVE NEAR WATER.   MUSICAL",
98 DATA"TALENT.        COMPATIBLE WITH OTHER WATER - 2,7"
100 DATA"RULED BY JUPITER.     INVESTIGATOR,SCIENTISTSEEKER,MATERIAL RATHER"
102 DATA"THAN SPIRITUAL. GOOD  SENSE OF HUMOR. TRUSTSLIKES TO KNOW WHY"
104 DATA" AND HOW. NOT INTERESTED INMONEY ",
106 DATA"COMPATIBLE WITH OTHER FIRE - 1,3,OR 9"
108 DATA"RULED BY URANUS.APPEARSTRANGE AND ECCENTRIC.AHEAD OF HIS TIME."
110 DATA"    INTEREST  IN OCCULT,  PSYCHIC & OUT OF THE  ORDINARY. "
112 DATA"INTUITIVE.  SARCASTIC IF CROSSED. LIBERTY,EQUALITY." ,
114 DATA"     COMPATIBLE WITH OTHER AIRS - 4OR 5"
116 DATA"RULED BY MERCURY.     ACTIVE PHYSICALLY AND MENTALLY. INQUIRING, "
118 DATA" EXPLORING. LIKES TO   READ AND DO RESEARCH. LINGUISTIC. TEACHER,  "
120 DATA"WRITER, SECRETARY.    FRIENDLY, METHODICAL, ORDERLY.",
122 DATA"  COMPATIBLE  WITH   OTHER AIRS - 4 OR 5"
124 DATA"RULED BY VENUS.       GENTLE,REFINED, COMELYSOCIABLE, PLEASANT. "
126 DATA"A PEACEMAKER.DIFFICULTY IN FINANCES. FRIENDLY AND  AGREEABLE."
128 DATA" A GOODHOST OR HOSTESS.      ",
130 DATA"COMPATIBLE WITH OTHER EARTHS - 6 OR 8"
132 DATA"RULED BY NEPTUNE.     PSYCHIC, INTROVERT,   MYSTERIOUS. DOES NOT"
134 DATA"  SAY MUCH,BUT KNOWS    MUCH. DRAWN TO OCCULT.LIKES FISHING"
136 DATA". TAKES  FROM HAVES, GIVES TO  HAVE-NOTS.",
138 DATA" COMPATIBLE WITH OTHER WATERS - 2 OR 7"
140 DATA"RULED BY SATURN. COLD,PESSIMISTIC. NO  SENSEOF HUMOR."
142 DATA" SUCESS IN   FINANCES. ASSOCIATED  WITH MINING, LAW, REALESTATE,"
144 DATA" CEMETERIES,   PAWN SHOPS. WORKS HARDCONCERN WITH THE PAST.",
146 DATA"COMPATABLE WITH OTHER EARTHS - 6 OR 8"
148 DATA"RULED BY MARS.        EMOTIONAL,JEALOUS,    ACTIVE, TIED TO FAMILY"
150 DATA"LOYAL. SUSPICIOUS OF  STRANGERS. IMPULSIVE. AFRAID OF UNKNOWN.    "
152 DATA"ASSOCIATED WITH       SURGERY, PHYSICAL AND MENTAL ILLNESS.     ",
154 DATA"  COMPATIBLE WITH OTHER FIRES - 1,3, OR 9"